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Oracle Power Objects 


By Barry Johnson 


‘ve been asked many questions while teaching Power Objects to developers, and in this first issue of Oracle 
Informant, I'll take this opportunity to answer the most common ones. | look forward to receiving questions from 


readers in the coming months. 


How can | dynamically change the choices on one popup 
menu based on the selection in another popup menu? 
For instance, | have two tables, one of car makes 
(Dodge, Ford, and Chevrolet) and another of car models 
(Intrepid, Taurus, and Gamaro). | want the user’s selec- 
tion in the “Make” popup menu to limit the choices in 
the “Model” popup menu to models of the chosen make. 
That is, choosing Ford would show a menu containing 
Taurus, Escort, and Tempo. 


As with many programming problems, there are at least two solu- 
tions to this one. Both hinge on dynamically setting the 
Translation property of the controlled popup menu (Model in 
this case) from the PostChange method of the controlling popup 
menu (Make in this case). 


The straightforward way to solve this problem is to leave the 
Translation property of the controlled popup menu blank at 
design time, and add this code to the PostChange method of 


the controlling popup menu: 


' popMake.PostChange() 

' Assumes value of popMake is the primary key of the make 
' table and that the model table has foreign key, make_id. 
DIM vTrans AS STRING 

vTrans="=SELECT NAME,MODEL_ID FROM MODEL " 

vTrans=vTrans & "WHERE MODEL.MAKE_ID=" & self.value 
popModel.translation =vTrans 


The more complex method of solving the problem is left as an 
exercise for the reader. Use the EXEC SQL command to popu- 
late an array with the Model data, build a display = internal 
style translation list, and set the Translation property of the 
Model popup menu to the populated list. This code is longer, 
less clear, and requires global or static array variables that are not 
desirable unless their use is absolutely necessary. — B/ 


Is it possible to obtain complete access to the data dic- 
tionary in a Blaze database? 
Yes. For the username and password, use sys/sys. Here's an exam- 


ple connect string for the Macintosh folder specification: 
Blaze:sys/sys@Dynamic: Informant.b1lz 


Likewise, an example connect string for a Windows directo- 
ry/file specification is: 


Blaze:sys/sys@user\informnt.b1z 


5) 


What Is the easiest way to check the type of database 
a session is connected to? To take advantage of cer- 
tain extensions to the backend database, | must know 
if a user is connected to Oracle, Blaze, or SQL Server. 


The easiest way to check the database type is by viewing the con- 
tent of the RunConnect property of a session. This code snippet 
works well: 


dbType=LEFT(ses1.RunConnect, INSTR(1,ses1.RunConnect,":")-1) 


Possible results include Blaze, Oracle, or DBLib, depending if 
the connection is to a Blaze, Oracle, or SQL Server database, 


respectively. — B/ 


How can | implement drag-and-drop functionality in 
my OPO application? 

Drag-and-drop interfaces are increasingly popular because 
they're intuitive to use. The code in Figures 1 and 2 demon- 
strate a simple example of dragging and dropping one rectan- 
gle onto another: 

a A red rectangle can be dragged and dropped onto another 
larger rectangle. 

When dragging a red rectangle, a black outline is tracked 
with the mouse. 

When the user drags a red rectangle over a larger rectangle, the 
larger rectangle’s border changes to red. 

A successful drop (a release while the mouse pointer is inside 
the larger rectangle) displays a message box. 


Although this example is artificially simple, the same technique 
can be used regardless of the action to be triggered. Follow 
these steps: 

1) Create a rectangle on a form, and call it recDropon. This is the 
rectangle where objects are dropped. 

2) Create a rectangle called recDropIt to drag-and-drop. 

3) Create a rectangle called recstayPut. It will act as a 
placeholder. However, the user’s perception will be that 
its being dragged. 

4) Set the Transparent property of recDropIt to True. 

5) Place recDropIt on top of recStayPut. 

6) Add the code in Figure 1 to the recDropIt.MouseMove 
method. 

7) Add the code in Figure 2 to the recDropIt.MouseUp method. 


Now run the form as shown in Figure 3. The color changes as 
the mouse pointer enters the target rectangle’s boundaries. — B/ 
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Sub MouseMove(x as Integer, & 

y as Integer, & 

shift as Integer) 
' The following tests whether rectangle is being 
‘ dragged within the bounds of the container. If mouse 
‘ has moved outside bounds, the rectangle itself should 
‘ only travel to the edge of the container. 


' First test horizontal (x) coordinate 
if (x> (self.GetContainer().Sizex-CINT(self.SizexX/2) ) ) 
then 

x = self.GetContainer().Sizex - CINT(self.Sizex / 2) 
elseif 

( x<CINT(self.Sizex / 2) ) 
then 

x = CINT(self.SizexX / 2) 
end if 


' Then test vertical (y) coordinate 
if (y>(self.GetContainer().SizeY-CINT(self.SizeY/2) )) 
then 

y = self.GetContainer().SizeY - CINT(self.SizeY / 2) 
elseif 

( y<CINT(self.SizeY / 2) ) 
then 

y = CINT(self.SizeY / 2) 
end if 


' Visually move self with the mouse, keeping self 
' centered around the mouse pointer 
self.PositionX = x - CINT(self.Sizex / 2) 
self.PositionY = y - CINT(self.SizeY / 2) 


' Next compute the top, bottom, left, and right 
‘ boundaries of the object which is the intended 
‘ target of the drag. 

tb = recDropOn.PositionyY 

bb = recDropOn.PositionY+recDropOn.SizeyY 

lb = recDropOn.Positionx 

ro = recDropOn.PositionX+recDropOn.Sizex 


' Check if the pointer is within the target's 
‘ boundaries. 
if (x>=l1b) AND (x<=rb) AND (y>=tb) AND (y<=bb) then 
' Set the drag target's color to red, unless it 
' already is red, in which case we do nothing. 
' leaving out the if..end if wrapper would cause 
' substantial visual flicker. 
if (recDropOn.ColorBrdr <> 2) then 
recDropOn.ColorBrdr = 2 
end if 
else 
' The pointer is outside the target's boundaries. 
‘ Set the drag target's color to black, unless it 
' already is black, in which case we do nothing. 
if (recDropOn.ColorBrdr <> 0) then 
recDropOn.ColorBrdr = 0 
end if 
end if 


Figure 1: The MouseMove method for the object to be dragged and 
dropped. 


Sub MouseUp(x as Integer, y as Integer, & 
shift as Integer) 

' Move self back on top of recStayPut 

self .PositionX=recStayPut .PositionXx 

self .PositionY=recStayPut.Positiony 


' Just check the color to see if we were dropped on 
‘ target Could also check coordinates, but is 
‘ superfluous in this case. 
if(recDropOn.ColorBrdr = 2) then 
recDropOn.ColorBrdr = 0 ' Change border to black 
MSGBOX("Hey, you dropped something." ) 
end if 


Figure 2: The MouseUp method for the object to be dragged and 
dropped. 


Drag and Drop 


Drag this... and drop on this 


Figure 3: Our drag-and- 
drop example in action. 





Drag and Drop 


Drag this... and drop on this 





How can | support an interface that allows the user to 
select one item from two repeaters each, and then 
have a third repeater display records from the n-n 
link table containing the repeaters’ values as keys? 
For instance, one repeater has developers, the second 
has departments. The user should be able to select a 
developer and a department and see the projects 
worked on by each developer for each department. 


I enjoy seeing this question because it’s simple to answer and is 
implemented in zero lines of code. Consider three repeaters 
using the above example: rptDev, rptDept, and rptProj. Assume 
the primary keys of the developer and department tables are 
DEV_ID and DEPT_ID, respectively, and are also the names of the 
foreign key columns in the project table. This behavior is accom- 
plished by setting these properties on rptProj: 
rptProj.LinkDetailColumn: DEPT_ID;DEV_ID 
rptProj.LinkMasterColumn: DEPT_ID;DEV_ID 
rptProj.LinkMasterFormrpt: Dept; rptDev 


As you can see, the answer is simple. It’s just a matter of 


appropriately assigning properties. — BJ Hl 
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